home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / komei4 / komei4.exe / ICON / CMD1.HD6 < prev    next >
Text File  |  1993-06-17  |  4KB  |  315 lines
  1. ds_name        db    'MOJ\CMD1',0
  2.  
  3.  
  4. ; 前の色を示すだけ
  5. ; カラーボックスの下に二つ並んだ大きい方の箱
  6.  
  7. ; CONTEN より呼ばれて､色を変える
  8.  
  9. paint_wd:
  10.  
  11.     SET_P    dt1
  12.     SET_P    dt2
  13.     SET_P    dt3
  14.     SET_P    dt4
  15.     SET_P    dt5
  16.     SET_P    dt6
  17.     SET_P    dt7
  18.     SET_P    dt8
  19.     SET_P    dt9
  20.     SET_P    dt10
  21.     SET_P    dt11
  22.     SET_P    dt12
  23.     SET_P    dt13
  24.  
  25.     SET_P    dt_bu1
  26.     SET_P    dt_i_ha
  27.     SET_P    dt_nao_g
  28.     SET_P    dt_fzz
  29.     SET_P    dt_stop1
  30.     SET_P    dt_gazld
  31.     SET_P    dt_switch
  32.     SET_P    dt_ongak
  33.     SET_P    dt_end1
  34.     SET_P    dt_roll
  35.  
  36. re_paint:
  37.      WD_CLS 0
  38.      BOX boxdt,2
  39.      MOZI    mozidt
  40.  
  41.      ret
  42.  
  43. be_called:
  44.     YOMU    ax,300
  45.     cmp    ax,400
  46.     je    neru
  47.     cmp    ax,500
  48.     je    okiru
  49.     ret
  50. neru:
  51.     WD_ERZ 1
  52.     WD_ERZ 0
  53.     WD_LEFT
  54.     ret
  55. okiru:
  56.     WD_WANT
  57.     jmp    re_paint
  58.  
  59.  
  60. mouse_in:
  61.     cmp    ch,1
  62.     je    f_1
  63.     ret
  64. f_1:
  65.     MOU    boxdt,2
  66.     cmp    bx,1
  67.     je    f_2
  68.     ret
  69. f_2:
  70.     cmp    ax,1
  71.     je    tukuru
  72.     cmp    ax,2
  73.     je    seiri
  74.     ret
  75.  
  76. tukuru:
  77.     mov    ah,25
  78.     mov    al,2    ; cls
  79.     mov    bx,0
  80.     call    komei
  81.  
  82.     mov    ah,25
  83.     mov    al,2    ; cls
  84.     mov    bx,1
  85.     call    komei
  86.  
  87.     KAKU    word ptr 300,400
  88.     CALL_P    dt_bu1
  89.     CALL_P    dt_i_ha
  90.     CALL_P    dt_nao_g
  91.     CALL_P    dt_fzz
  92.     CALL_P    dt_gazld
  93.     
  94.  
  95.     KAKU    word ptr 300,500
  96.  
  97.     CALL_P    dt1
  98.     CALL_P    dt2
  99.     CALL_P    dt3
  100.     CALL_P    dt4
  101.     CALL_P    dt5
  102.     CALL_P    dt6
  103.     CALL_P    dt7
  104.     CALL_P    dt8
  105.     CALL_P    dt9
  106.     CALL_P    dt10
  107.     CALL_P    dt11
  108.  
  109.     CALL_P    dt12
  110.     CALL_P    dt13
  111.     CALL_P    dt_switch
  112.     CALL_P    dt_stop1
  113.     CALL_P    dt_roll
  114.  
  115.     KAKU    word ptr 300,1
  116.     KAKU    word ptr 302,1    ;一曲目のデータセット
  117.     CALL_P    dt_ongak
  118.  
  119.     KAKU    word ptr 300,2    ; 音楽チェンジ
  120.     CALL_P    dt_end1
  121.  
  122.     jmp    re_paint
  123.  
  124. seiri:
  125.     mov    ah,25
  126.     mov    al,2    ; cls
  127.     mov    bx,0
  128.     call    komei
  129.  
  130.     mov    ah,25
  131.     mov    al,2    ; cls
  132.     mov    bx,1
  133.     call    komei
  134.  
  135.     KAKU    word ptr 300,400
  136.  
  137.     CALL_P    dt2
  138.     CALL_P    dt3
  139.     CALL_P    dt4
  140.     CALL_P    dt5
  141.     CALL_P    dt7
  142.     CALL_P    dt8
  143.     CALL_P    dt9
  144.     CALL_P    dt10
  145.     CALL_P    dt11
  146.     CALL_P    dt_roll
  147.  
  148.     KAKU    word ptr 300,500
  149.  
  150.     CALL_P    dt1
  151.     CALL_P    dt6
  152.     CALL_P    dt12
  153.     CALL_P    dt13
  154.     CALL_P    dt_bu1
  155.     CALL_P    dt_i_ha
  156.     CALL_P    dt_nao_g
  157.     CALL_P    dt_fzz
  158.     CALL_P    dt_switch
  159.     CALL_P    dt_stop1
  160.     CALL_P    dt_gazld
  161.  
  162.     KAKU    word ptr 300,1
  163.     KAKU    word ptr 302,2    ;2曲目のデータセット
  164.     CALL_P    dt_ongak
  165.  
  166.     KAKU    word ptr 300,2    ; 音楽チェンジ
  167.     CALL_P    dt_end1
  168.  
  169.     jmp    re_paint
  170.  
  171.  
  172. dt1:
  173.     call    sub_edi
  174.     dw    0
  175.     db    'C_3B',0
  176. dt2:
  177.     call    sub_edi
  178.     dw    0
  179.     db    'C_1B',0
  180. dt3:
  181.     call    sub_edi
  182.     dw    0
  183.     db    'CONTEN',0
  184.  
  185. dt4:
  186.     call    sub_edi
  187.     dw    0
  188.     db    'F_COL',0
  189.  
  190. dt5:
  191.     call    sub_edi
  192.     dw    0
  193.     db    'B_COL',0
  194.  
  195. dt6:
  196.     call    sub_edi
  197.     dw    0
  198.     db    'MOTO_E',0
  199.  
  200. dt7:
  201.     call    sub_edi
  202.     dw    0
  203.     db    'NAO_E',0
  204. dt8:
  205.     call    sub_edi
  206.     dw    0
  207.     db    'SETB',0
  208. dt9:
  209.     call    sub_edi
  210.     dw    0
  211.     db    'SETE',0
  212. dt10:
  213.     call    sub_edi
  214.     dw    0
  215.     db    'I_MK',0
  216. dt11:
  217.     call    sub_edi
  218.     dw    0
  219.     db    'EZZ',0
  220. dt12:
  221.     call    sub_edi
  222.     dw    0
  223.     db    'BT1',0
  224. dt13:
  225.     call    sub_edi
  226.     dw    0
  227.     db    'I_GA',0
  228.  
  229. dt_bu1:
  230.     call    sub_edi
  231.     dw    0
  232.     db    'BU1',0
  233.  
  234. dt_i_ha:
  235.     call    sub_edi
  236.     dw    0
  237.     db    'I_HA',0
  238. dt_nao_g:
  239.  
  240.     call    sub_edi
  241.     dw    0
  242.     db    'NAO_G',0
  243. dt_fzz:
  244.     call    sub_edi
  245.     dw    0
  246.     db    'FZZ',0
  247.  
  248. dt_stop1:
  249.     call    sub_edi
  250.     dw    0
  251.     db    'STOP1',0
  252.  
  253. dt_gazld:
  254.     call    sub_edi
  255.     dw    0
  256.     db    'GAZLD',0
  257.  
  258. dt_switch:
  259.     call    sub_edi
  260.     dw    0
  261.     db    'SWITCH',0
  262.  
  263. dt_ongak:
  264.     call    sub_edi
  265.     dw    0
  266.     db    'ONGAK',0
  267.  
  268. dt_end1:
  269.     call    sub_edi
  270.     dw    0
  271.     db    'END1',0
  272.  
  273. dt_roll:
  274.     call    sub_edi
  275.     dw    0
  276.     db    'ROLL',0
  277.  
  278.  
  279.  
  280. look_me:
  281.      call sub_esi         ; esi 固定です｡
  282.      dd 0,0
  283.      dw     1    ; ここが 1 の物は open start です｡
  284.          dw      0
  285.          dw  140,24,0,450,15,0,0,0
  286.  
  287.  
  288.  
  289. boxdt:
  290.     call sub_edi                               ; edi 固定です｡
  291.         dw    2,70,24,0,0,70,0,15,0,0
  292. mozidt:
  293.     call sub_edi
  294.            dw    0        ;screen_no
  295.            dw    15      ; mozi_color
  296.            dw    4      ; 書き出し位置  x
  297.            dw    0      ;          y
  298.            dw    70      ; next offset x
  299.            dw    0      ; next offset y
  300.     
  301.                dw   2      ; gyo suu
  302.                    db    ' 制作',0
  303.                    db    ' 整理',0
  304.                 dw 0,0
  305.  
  306.  
  307. ; [count][sz_x][sz_y][off_x][off_y][+x][+y][f_col][b_col][s_no]
  308.  
  309.  
  310. p_call:
  311.     M_P_CALL
  312. p_set:
  313.     M_P_SET
  314.  
  315.